home *** CD-ROM | disk | FTP | other *** search
/ Cracking 1 / Cracking I..iso / Tools / Ostatní / aPLib v0.26b / examples / tmt / testappa.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2001-12-15  |  628 b   |  42 lines
  1.  
  2. uses aplibu;
  3.  
  4. var
  5.   p1,p2:pointer;
  6.   l:longint;
  7.   egal:pointer;
  8.   d1,d2:file;
  9.   workmem:^workmem_type;
  10.  
  11. begin
  12.   if paramcount<>2 then
  13.     begin
  14.       writeln('TESTAPPA.EXE <normal> <aplib>');
  15.       halt(1);
  16.     end;
  17.  
  18.   assign(d1,paramstr(1));
  19.   reset(d1,1);
  20.   l:=filesize(d1);
  21.   getmem(p1,l);
  22.   blockread(d1,p1^,l);
  23.   close(d1);
  24.  
  25.   getmem(p2,((l*9) div 8)+16);
  26.  
  27.   new(workmem);
  28.   l:=ap_pack(p1^,p2^,l,workmem^,@cb1);
  29.   dispose(workmem);
  30.   writeln;
  31.  
  32.   assign(d2,paramstr(2));
  33.   rewrite(d2,1);
  34.   blockwrite(d2,p2^,l);
  35.   close(d2);
  36.  
  37.   freemem(p1,l);
  38.   freemem(p2,((l*9) div 8)+16);
  39.  
  40. end.
  41.  
  42.